home *** CD-ROM | disk | FTP | other *** search
/ Inventor Labs: Transportation / InventorLabs - Transportation.iso / pc / builders / media / netacess / hminet.dir / 00032_Script_32 < prev    next >
Text File  |  1997-04-04  |  878b  |  32 lines
  1. on enterFrame
  2.   set the text of cast "Status" to "Launch to URL"
  3. end
  4.  
  5. on exitFrame
  6.   global WebBrowser
  7.   
  8.   --
  9.   -- use this handler only if
  10.   -- the browser is not AOL
  11.   
  12.   set URL to the text of cast "theURL"
  13.   
  14.   if the machineType = 256 then
  15.     set WebError = WebBrowser(mOpenURL,URL,"","")
  16.   else
  17.     set error = Browser("OpenURL",URL )
  18.     
  19.     put "URL sent" into cast "status"
  20.     -- low memory error
  21.     if error = 7 then
  22.       alert "You do not have enough RAM to run this program and begin Internet access simultaneously. To go online, quit this program to free up memory. Double-click on the Share the Spirit icon from The Polar Express folder on your hard drive."
  23.       go "Start"
  24.     else if error <> 0 then
  25.       put error into cast "status"
  26.       alert "Unexpected browser error: " error
  27.       go "Start"
  28.     end if
  29.   end if
  30. end
  31.  
  32.